home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / opus_findversion / dopus / arexx / Opus-FindVersion.rexx
Encoding:
OS/2 REXX Batch file  |  1996-05-02  |  2.6 KB  |  84 lines
  1. /*
  2. **  $VER: DOpus-FindVersion 1.0 (30 Apr 1996) by Claus Dilly
  3. **
  4. **        © 1996 Claus Dilly
  5. **
  6. **  PROGRAMNAME:
  7. **      FindVersion
  8. **
  9. **  FUNCTION:
  10. **      Sucht nach einem Version-String im angewählten File und gibt
  11. **      ihn in einem Opus-internen Requester aus
  12. **
  13. **  $HISTORY:
  14. **
  15. **  30 Apr 1996 : 1.0 :  Abfrage, von welchem OpusPort gestartet wurde
  16. **  30 Apr 1996 : 0.2 :  Abfrage eingenaut, ob ein File angewählt ist
  17. **  28 Apr 1996 : 0.1 :  initial release
  18. */
  19.  
  20. /*F-AN */ /* Configuration */
  21.  
  22. VERBEF="C:GETV"
  23. VERTMP="T:GETVer.tmp"
  24.  
  25. /*F-AUS*/
  26.  
  27. /*F-AN */ /* Port-Abfrage */
  28.  
  29. /*
  30. parse source . . . . . port     /* Welcher Port ist aktiv           */
  31. port = strip(port)              /* Lösche Leezeichen vom Portnamen  */
  32. OPUSport = port                 /* Übergebe Portnamen an Variable   */
  33. */
  34. OPUS = ADDRESS()
  35.  
  36. /*F-AUS*/
  37.  
  38. /*F-AN */ /* Library abfragen */
  39.  
  40. OPTIONS RESULTS
  41.  
  42. IF ~show("L","rexxarplib.library") THEN DO
  43.    ADDLIB("rexxarplib.library",0,-30,0)
  44. END
  45.  
  46. /*F-AUS*/
  47.  
  48. /*F-AN */ /* Window-Status abfragen */
  49.  
  50. ADDRESS value OPUS                     /* Adresse an DirectoryOpus übergeben */
  51. BUSY ON                                /* Mauszeiger auf BUSY stellen */
  52.  
  53. STATUS 3; FENSTER=RESULT               /* Abfragen welches Fenster aktiv ist */
  54. STATUS 7 FENSTER; ANWAHL=RESULT        /* Abfragen ob ein File angewählt ist */
  55.  
  56. /*F-AUS*/
  57.  
  58. /*F-AN */ /* Requester erzeugen */
  59.  
  60. IF ANWAHL <=0 THEN                     /* Wenn nichts angewählt wurde */
  61.     DO
  62.         NONE                           /* Alle angewählten Einträge deselektieren */
  63.         NOTIFY ">>> DOPUS-REQUEST <<<\\Bitte zuerst ein File anwählen !\\"
  64.         BUSY OFF                       /* Mauszeiger auf NORMAL stellen */
  65.     END
  66. ELSE
  67.     DO                                 /* Wenn ein File angewählt wurde */
  68.         STATUS 13 "-1";      PATH=RESULT                  /* Name des Verzeichnisses im momentan aktivem Fenster */
  69.         GETNEXTSELECTED "-1"; NAME=RESULT                 /* Name des ersten angewählten Eintrags im aktiven Fenster */
  70.         PARSE VAR PATH; PARSE VAR NAME                    /* Setzt Ergebnis in Variablen */
  71.         ADDRESS COMMAND VERBEF PATH||NAME ">" VERTMP
  72.         VERSION = GetEnv(VERTMP)
  73.         ADDRESS value OPUS                                /* Requester in DOpus ausgeben */
  74.         NONE                                              /* Alle angewählten Einträge deselektieren */
  75.         NOTIFY ">>> DOPUS-REQUEST <<<\\Für das ausgewählte File\'"||PATH||NAME||"'\  wurde der Versionsstring  \\"VERSION"\ausgegeben."
  76.         BUSY OFF                                          /* Mauszeiger auf NORMAL stellen */
  77.         ADDRESS COMMAND "delete >nil:" VERTMP
  78.     END
  79.  
  80. /*F-AUS*/
  81.  
  82. EXIT
  83.  
  84.